home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / ML_Class_1990_Venom.d64 / source 2.2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  931b  |  59 lines
  1. 100 * = $1000
  2. 110 sei
  3. 120 lda #$7f
  4. 130 sta $dc0d
  5. 140 lda #$01
  6. 150 sta $d01a
  7. 160 lda #$1b
  8. 170 sta $d011
  9. 180 lda #$00
  10. 190 sta index
  11. 200 lda <irq
  12. 210 sta $0314
  13. 220 lda >irq
  14. 230 sta $0315
  15. 240 cli
  16. 250 rts
  17. 260 index :b 00
  18. 270 screen :b c7
  19. 280 irq inc $d019
  20. 290 lda screen
  21. 300 sta $d016
  22. 310 ldy #$78
  23. 320 loop dey
  24. 330 cpy #$00
  25. 340 bne loop
  26. 350 lda #$c8
  27. 360 sta $d016
  28. 370 lda #$f0
  29. 380 sta $d012
  30. 390 jsr scroll
  31. 400 jmp $ea31
  32. 410 scroll ldx #$02
  33. 420 loop2  dec screen
  34. 430 dex
  35. 440 cpx #$00
  36. 450 bne loop2
  37. 460 lda screen
  38. 470 cmp #$c0
  39. 480 bpl return
  40. 490 lda #$c7
  41. 500 sta screen
  42. 510 inc index
  43. 520 ldy index
  44. 530 lda text,y
  45. 540 sta $07e7
  46. 550 ldx #$00
  47. 560 loop3 lda $07c1,x
  48. 570 sta $07c0,x
  49. 580 inx
  50. 590 cpx #$28
  51. 600 bne loop3
  52. 610 return rts
  53. 620 text :b " [201][212][160][215][207][210][203][211]"
  54. 630 :b "[160][194][213][212][160][217][207][213][160][205][213][211][212][160][213][211][197][160][211][195][210][197][197][206][160][195][207][196][197][211]"
  55. 640 :b "[160][215][197][210][197][160][193][160]= 1[160]"
  56. 650 :b ".............................."
  57. 660 :b ".............................."
  58. 670 :b ".............................."
  59.